﻿Public Class Inf_EnfermedadesxCie10
    Inherits System.Web.UI.Page


    Private Sub CargaComboDelfiltroCieXPrimeraVez()


        FG.CargaCombo("TraeClasificacionGeneralCie", CboClasificacionGeneral)
        CboClasificacionGeneral.Items.Add("TODAS")
        CboClasificacionGeneral.Text = "TODAS"

        'cargo el combo por el valor del combo del CboClasificacionGeneral
        FG.CargaCombo("TraeSubClasif_CIE_xClasificacionGral", cboSubClasificacion, CboClasificacionGeneral.Text)
        cboSubClasificacion.Items.Add("TODOS")
        cboSubClasificacion.Text = "TODOS"


        'cargo el combo categoria
        CargaCombo_x_2_valores("TraeCategoriaCie_X_claGralySubClasf", cboCategoria, CboClasificacionGeneral.Text, cboSubClasificacion.Text)
        cboCategoria.Items.Add("TODAS")
        cboCategoria.Text = "TODAS"




    End Sub




    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            FG.culturaPaginas()

            'cargo los combos
            CargaComboDelfiltroCieXPrimeraVez()

        End If


    End Sub

    Protected Sub CboClasificacionGeneral_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CboClasificacionGeneral.SelectedIndexChanged

        'cargo el combo por el valor del combo del CboClasificacionGeneral
        FG.CargaCombo("TraeSubClasif_CIE_xClasificacionGral", cboSubClasificacion, CboClasificacionGeneral.Text)
        cboSubClasificacion.Items.Add("TODOS")
        cboSubClasificacion.Text = "TODOS"


        'cargo el combo categoria
        CargaCombo_x_2_valores("TraeCategoriaCie_X_claGralySubClasf", cboCategoria, CboClasificacionGeneral.Text, cboSubClasificacion.Text)
        cboCategoria.Items.Add("TODAS")
        cboCategoria.Text = "TODAS"

    End Sub

    Protected Sub cboSubClasificacion_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cboSubClasificacion.SelectedIndexChanged


        'cargo el combo categoria
        CargaCombo_x_2_valores("TraeCategoriaCie_X_claGralySubClasf", cboCategoria, CboClasificacionGeneral.Text, cboSubClasificacion.Text)
        cboCategoria.Items.Add("TODAS")
        cboCategoria.Text = "TODAS"



    End Sub
    Private Sub MuestraResultado()
        Dim Rs As ADODB.Recordset
        Dim param(4) As ADODB.Parameter


        'limpio la grilla 
        gv_Datos.DataBind()
        '---------------------

        param(0) = New ADODB.Parameter
        param(0).Name = "@ClasificacionGeneral"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Size = 500
        param(0).Value = CboClasificacionGeneral.Text

        param(1) = New ADODB.Parameter
        param(1).Name = "@SubClasificacion"
        param(1).Type = ADODB.DataTypeEnum.adVarChar
        param(1).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(1).Size = 500
        param(1).Value = cboSubClasificacion.Text

        param(2) = New ADODB.Parameter
        param(2).Name = "@categoria"
        param(2).Type = ADODB.DataTypeEnum.adVarChar
        param(2).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(2).Size = 500
        param(2).Value = cboCategoria.Text

        param(3) = New ADODB.Parameter
        param(3).Name = "@diagnostico"
        param(3).Type = ADODB.DataTypeEnum.adVarChar
        param(3).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(3).Size = 500
        param(3).Value = txtDiganostico.Text

        param(4) = New ADODB.Parameter
        param(4).Name = "@ClasificacionGeneral"
        param(4).Type = ADODB.DataTypeEnum.adVarChar
        param(4).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(4).Size = 10
        param(4).Value = cboAnioGraf.Text



        Rs = Datos.TraerTodos("Informe_Enfermedades_cie10", param, "MuestraResultado-inf_enfermedadescie10_xProvincia")

        If Rs.RecordCount > 0 Then
            FG.MuestraCartel("Registros:" & Rs.RecordCount.ToString, lblCanRegisto_de_gv)

            gv_Datos.DataSource = FG.cargaUnDataTable(Rs)
            gv_Datos.DataBind()

        Else
            FG.MuestraCartel("No hay datos", lblMsje)
        End If
    End Sub

    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click
        FG.SacaCartelDeAViso(lblCanRegisto_de_gv)
        FG.SacaCartelDeAViso(lblMsje)


        MuestraResultado()


    End Sub
End Class